home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d15 / jpl.arc / LINE.JPL < prev    next >
Encoding:
Text File  |  1990-07-05  |  343 b   |  22 lines
  1. { JPL Executor LINE pixel                     }
  2. { Copyright (C) 1988,89 Logiciels JPsoft Enr. }
  3.  
  4. { _I is the loop variable }
  5.  
  6. MoveWindow ( 100 , 100 , 300 , 300 )
  7.  
  8. For ( 1 , 300 )
  9.  
  10.    MoveTo ( _I , _I )
  11.    SetPixel ( 1 )
  12.  
  13.    MoveTo ( _I , 200 )
  14.    SetPixel ( 2 )
  15.  
  16.    MoveTo ( 200 , _I )
  17.    SetPixel ( 3 )
  18.  
  19. Next ()
  20.  
  21.  
  22. End ()